open(wyn,write,Str,[alias(tex)]),
zapisy([map2202,flh0110,inp2203,map2203,map2201,iip2wfi,map2204,map2205,fzp2250,nz2532,iip2phm,inp2207,inp2206,
inp2205,map2206,fzp2251,iip3job],4,Y,N),
write(tex,Y),
write(tex,N), 
close(Str).
